GFTODO.DIF[MF,ALS]1 - www.SailDart.org

perm filename GFTODO.DIF[MF,ALS]1 blob sn#772008 filedate 1984-10-26 generic text, type T, neo UTF8

  1) GFTODO.WEB[MF,SYS] and 2) OC.WEB[MF,ALS]	10-26-84 13:25	pages 10,10

**** File 1) GFTODO.WEB[MF,SYS]/10P/82L
1)	print_nl; print('|min_x|=',min_x:1);
1)	  print(' |max_y|=',max_y:1); print(' |min_y|=',min_y:1);
1)	y←max_y;
**** File 2) OC.WEB[MF,ALS]/10P/82L
2)	print_nl; print('|min_x|=',min_x:1); print(' |max_x=',max_x:1);
2)	  print(' |max_y|=',max_y:1); print(' |min_y|=',min_y:1); print_nl;
2)	y←max_y;
***************


**** File 1) GFTODO.WEB[MF,SYS]/10P/125L
1)	wd_halfword(max_x-min_x);
1)	b←0; i←1; y←min_y; x←min_x; p_c←0;
**** File 2) OC.WEB[MF,ALS]/10P/125L
2)	wd_halfword(max_x-min_x+1);
2)	b←0; i←1; y←min_y; x←min_x; p_c←0;
***************


**** File 1) GFTODO.WEB[MF,SYS]/13P/62L
1)	{|              tabulate;|}   {here if desired}
1)	  		@<Save data for the |oc| file@>;
**** File 2) OC.WEB[MF,ALS]/13P/62L
2)	if (char_code>22) and (char_code<29) then
2)	              tabulate;   {here if desired}
2)	  		@<Save data for the |oc| file@>;
***************